home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / arexxtutorial / more_examples / copy.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  202b  |  10 lines
  1. /* copy -- adds * wildcard to copy command */
  2. parse arg x
  3. asterisk = pos('*',x)
  4. do while asterisk > 0
  5.   x = delstr(x,asterisk,1)
  6.   x = insert('#?',x,asterisk-1,2)
  7.   asterisk = pos('*',x)
  8.   end
  9. c:copy x
  10.